home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / user groups / VAST / space.asp next >
Text File  |  2006-10-19  |  3KB  |  69 lines
  1. <%
  2. 'Drive information script by Garet Jax
  3. Response.Write "<html><head><title></title></head><body>"
  4. Response.Write "<font face=arial>Server Software: "& Request.ServerVariables("SERVER_SOFTWARE") &"<br>Drive Information for: "& Request.ServerVariables("SERVER_NAME") &"<br>"
  5. Response.Write "<table border=1 cellpadding=3 cellspacing=0 bordercolor=Black>"
  6. Response.Write "<tr><td nowrap><font face=arial><b>Driveletter</td><td nowrap><font face=arial><b>Drive Type</td><td nowrap><font face=arial><b>Volume Name</td><td nowrap><font face=arial><b>Total Space</td><td nowrap><font face=arial><b>Available Space</td><td nowrap><font face=arial><b>File System</td><td nowrap><font face=arial><b>Serial #</td></tr>"
  7. Set fs = CreateObject("Scripting.FileSystemObject")
  8. Set drv = fs.Drives
  9. For each d in drv 
  10. If d.Driveletter <> "A" Then
  11. If d.IsReady = True Then
  12. freespace = (d.AvailableSpace / 1024)
  13. free = (freespace / 1024)
  14. totalspace = (d.TotalSize / 1024)
  15. total = (totalspace / 1024)
  16.     Response.Write "<tr><td nowrap><font face=arial size=2><A href='dirwalkR.asp?id="& d.DriveLetter &"'>"& d.DriveLetter &"</a></td>"
  17.     If d.DriveType = 3 Then
  18.         dtype = "Network"
  19.         If d.ShareName = "" Then 
  20.             dname = " "
  21.         Else
  22.             dname = d.ShareName
  23.         End If
  24.     ElseIf d.DriveType = 0 Then
  25.         dtype = "Unknown"
  26.         If d.VolumeName = "" Then 
  27.             dname = " "
  28.         Else
  29.             dname = d.VolumeName
  30.         End If
  31.     ElseIf d.DriveType = 1 Then
  32.         dtype = "Removeable"
  33.         If d.VolumeName = "" Then 
  34.             dname = " "
  35.         Else
  36.             dname = d.VolumeName
  37.         End If
  38.     ElseIf d.DriveType = 2 Then
  39.         dtype = "Fixed"
  40.         If d.VolumeName = "" Then 
  41.             dname = " "
  42.         Else
  43.             dname = d.VolumeName
  44.         End If
  45.     ElseIf d.DriveType = 4 Then
  46.         dtype = "CD-Rom"
  47.         If d.VolumeName = "" Then 
  48.             dname = " "
  49.         Else
  50.             dname = d.VolumeName
  51.         End If
  52.     ElseIf d.DriveType = 5 Then
  53.         dtype = "RAM Disk"
  54.         If d.VolumeName = "" Then 
  55.             dname = " "
  56.         Else
  57.             dname = d.VolumeName
  58.         End If
  59.     End If
  60.     Response.Write "<td nowrap><font face=arial size=2>"& dtype &"</td><td nowrap><font face=arial size=2>"& dname &"</td><td nowrap><font face=arial size=2>"& Round(total,1) &" <font size=1>Megabytes</td><td nowrap><font face=arial size=2>"& Round(free,1) &" <font size=1>Megabytes</td><td nowrap><font face=arial size=2>"& d.FileSystem &"</td><td nowrap><font face=arial size=2>"& d.SerialNumber &"</td></tr>"
  61. Else
  62.     Response.Write "<td nowrap><font face=arial size=2>"& d.DriveLetter &"</td><td colspan=6><font face=arial size=2>Drive not ready</td></tr>"
  63. End If
  64. End If
  65. Next
  66. Response.Write "</table>"
  67. Response.Write "</body></html>"
  68. %>
  69.